Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    With Label1
        'wұ
        .Caption = ""
        .WordWrap = False
        .Font.Size = 20
        .AutoSize = True
    End With
End Sub

Private Sub CommandButton1_Click()
    Dim t     As Single
    Dim i     As Long
    Dim myStr As String
    For i = 1 To 10
        Label1.Caption = String(i, "") & String(10 - i, "")
        t = Timer + 1					'wɶj
        Do
            DoEvents
        Loop Until t < Timer
    Next
    MsgBox "BzI"
    Label1.Caption = ""
End Sub
